Namespace Exceptions

    Public Class ApplicationError

        Public Sub New(ByVal key As String, ByVal message As String)
            Me.Key = key
            Me.Message = message
        End Sub

        Private _key As String = String.Empty
        Public Property Key() As String
            Get
                Return _key
            End Get
            Set(ByVal value As String)
                _key = value
            End Set
        End Property

        Private _message As String = String.Empty
        Public Property Message() As String
            Get
                Return _message
            End Get
            Set(ByVal value As String)
                _message = value
            End Set
        End Property

    End Class

End Namespace
